home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 January / 1987-01.d64 / icon changer (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  83 lines
  1. 10 poke53281,0:poke53280,0:poke53269,0:dn$="":iu=0
  2. 20 print"[147]"spc(12)"icon changer"
  3. 30 print"[151]enter the filename of the icon you want to change"
  4. 40 input in$
  5. 50 print"filename selected is >"in$"[151]<":print"is this correct";
  6. 60 input" y/n";an$:if an$<>"y"then10
  7. 70 forct=1to16:pd$=pd$+chr$(32):next:in$=left$(in$+pd$,16)
  8. 80 open15,8,15,"i0"
  9. 90 input#15,er$,em$:ifer$<>"00"thenprinter$+" "+em$:close15:end
  10. 100 t=18:s=1
  11. 110 open2,8,2,"#"
  12. 120 print#15,"u1";2;0;t;s:fc=0:fp=2:bp=5
  13. 130 print#15,"b-p";2;0:get#2,nt$,ns$:t=asc(nt$+chr$(0)):s=asc(ns$+chr$(0))
  14. 140 print#15,"b-p";2;fp:get#2,ft$:ft$=ft$+chr$(0):ifasc(ft$)=0then280
  15. 150 print#15,"b-p";2;bp
  16. 160 forct=1to16
  17. 170 get#2,bi$
  18. 180 ifbi$=""thenbi$=chr$(0)
  19. 190 fi=asc(bi$)
  20. 200 iffi>127thenfi=fi-128
  21. 210 iffi<32thenfi=63
  22. 220 iffi>96andfi<123thenfi=fiand223
  23. 230 iffi=34thenfi=63
  24. 240 dn$=dn$+chr$(fi)
  25. 250 nextct
  26. 260 ifdn$=in$then310
  27. 270 dn$=""
  28. 280 fc=fc+1:iffc=8andt<>0then120
  29. 290 iffc=8andt=0then560
  30. 300 fp=fp+32:bp=bp+32:goto140
  31. 310 get#2,it$,is$
  32. 320 it=asc(it$+chr$(0)):is=asc(is$+chr$(0))
  33. 330 print#15,"u1";2;0;it;is
  34. 340 print#15,"b-p";2;5
  35. 350 forct=1to63:get#2,id$:id=asc(id$+chr$(0)):poke831+ct,id:next
  36. 360 poke53269,1:poke2040,13:poke53287,11:poke53248,110:poke53249,147
  37. 370 poke53249,147
  38. 380 printspc(15)"<- current icon"
  39. 390 restore:forct=1to63
  40. 400 readni:poke895+ct,ni
  41. 410 ni$=ni$+chr$(ni)
  42. 420 nextct
  43. 430 poke53269,3:poke2041,14:poke53288,11:poke53250,110:poke53251,180
  44. 440 printspc(15)"<- new icon"
  45. 450 ifiu=0thenprint"[151]proceed with change";
  46. 460 ifiu=0theninput" y/n";an$:if an$<>"y"then goto550
  47. 470 ifiu=0thenprint#15,"b-p";2;5
  48. 480 ifiu=0thenprint#2,ni$;
  49. 490 ifiu=0thenprint#15,"u2";2;0;it;is
  50. 500 ifiu=0theniu=1:print"[145][145][145][145][145][145][145][145][145][145][145]":goto330
  51. 510 print"[151]change completed             ":close2:close15
  52. 520 print"do you want to change another icon to   this pattern";
  53. 530 input" y/n";a$:ifa$="y"then10
  54. 540 close2:close15:poke53269,0:end
  55. 550 close2:close15:poke53269,0:print"[147]":printspc(13)"change aborted":end
  56. 560 print"file not found":close2:close15:end
  57. 570 rem ** icon data **
  58. 580 rem ** geopaint icon **
  59. 590 data 255,255,255,146,73,1,255,255,125,168,0,1,248,31,141,168
  60. 600 data 32,81,248,64,33,168,64,225,248,131,17,171,255,253,248,136
  61. 610 data 17,168,112,33,248,64,33,169,160,65,250,31,129,136,0,1
  62. 620 data 255,255,255,136,6,129,136,4,189,136,4,129,255,255,255,227
  63. 630 rem ** geowrite icon **
  64. 640 data 255,255,255,146,73,1,255,255,125,170,170,171,255,255,255,128
  65. 650 data 0,1,129,94,129,129,170,129,128,0,1,133,251,117,128,0
  66. 660 data 1,191,215,221,128,0,1,190,237,181,128,0,1,189,181,253
  67. 670 data 128,0,1,187,124,1,128,0,1,134,245,189,255,255,255,35
  68. 680 rem ** geowrite application icon #1**
  69. 690 data 255,255,255,216,0,31,252,0,31,129,188,31,129,94,1,129
  70. 700 data 235,1,128,0,1,128,0,1,128,0,1,255,255,255,128,0
  71. 710 data 1,255,255,255,224,0,7,159,0,249,128,255,1,129,0,129
  72. 720 data 134,0,97,136,0,17,176,0,13,192,0,3,255,255,255,98
  73. 730 rem ** geowrite application icon #2**
  74. 740 data 31,255,248,64,0,2,0,15,0,128,127,129,131,255,1,143
  75. 750 data 254,1,176,127,65,128,254,177,131,184,1,142,16,1,128,12
  76. 760 data 1,143,255,241,128,0,1,136,146,129,141,170,129,138,186,129
  77. 770 data 136,170,241,128,0,1,15,255,240,64,0,2,31,255,248,251
  78. 780 rem ** geopaint application icon **
  79. 790 data 255,255,255,128,0,1,145,17,1,185,17,1,190,170,253,184
  80. 800 data 68,1,144,68,1,144,0,1,144,80,1,144,80,1,184,80
  81. 810 data 1,191,223,253,184,80,1,144,80,1,144,80,1,144,3,255
  82. 820 data144,2,1,144,2,245,144,2,189,128,2,1,255,255,255,34
  83.